home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PRUS101.ZIP / FFILES.DEC < prev    next >
Encoding:
Text File  |  1994-12-19  |  3.3 KB  |  73 lines
  1. { FFILES.DEC - include file for the PRUSSG unit FDOS to speed up and enhance
  2.   file related operations under DOS / interface part }
  3.  (***************************************************************************
  4.  
  5.          RELEASE 1.01 - as first contained in the file PRUS101.LZH
  6.                 by Peter Schuette, 2:2452/117.19, GERMANY
  7.  
  8.                --------------------------------------------
  9.                 organized for Fido's PASCAL related echoes    
  10.                --------------------------------------------
  11.  
  12.      08/12/1994 to 09/05/1994 by Orazio Czerwenka, 2:2450/540.55, GERMANY
  13.      09/06/1994 to --/--/---- by Peter Schuette,   2:2452/117.19, GERMANY
  14.  
  15.  
  16.            As far as third party copyrights are not violated this
  17.            source code is hereby placed to the public domain. Use
  18.            it whatever way you want, but use AT YOUR OWN RISK.
  19.  
  20.            In case you should modify the source rather send your
  21.            modifications to the unit's current organizer (see above for
  22.            NM address) than to spread it on your own. This will help to
  23.            keep the unit updated and grant a certain standard to all
  24.            other users as well.
  25.  
  26.            The unit is currently still under work. So it might greatly
  27.            benefit of your participation.
  28.  
  29.            Those who contributed to the following piece of source,
  30.            listed in alphabethical order:
  31.         ================================================================
  32.            Orazio Czerwenka, Horst Kraemer, Wilbert van Leijen,
  33.            Sieghard Schicktanz, Peter Schuette ...
  34.         ================================================================
  35.            YOUR NAME WILL APPEAR HERE IF YOU CONTRIBUTE USEFUL SOURCE.
  36.  
  37.            Credits in your own programs are as welcome as unnecessary.
  38.  
  39.  ***************************************************************************)
  40.  
  41. CONST
  42.   SearchFileAttr : Byte = $27; { Search Attribute used by FILEONPATH }
  43.  
  44. function FileExists(FileName:PathStr):boolean;
  45.   { reports wether a file, directory or volume label does exist }
  46.  
  47. function FileOnPath (FileSpec: PathStr; PathVariable: String;
  48.   prime: boolean): PathStr;
  49.   { File find routine, that analyses the environments PATH variable
  50.     in order to locate the file(s) to be searched for according to
  51.     the file attributes defined by SEARCHFILEATTR.
  52.     If the specified file name(s) do not specify a file extension it
  53.     will be automatically be searched for COM and EXE executables, the
  54.     same way normally DOS would do.
  55.     Optionally there may also be specified an environment variable different
  56.     from PATH to locate the file(s).
  57.     The argument PRIME offers the possibility to force a new file quest. }
  58.  
  59. function DelFile(FileName: String): Integer;
  60.   { deletes a file via Int $21 Function $41 }
  61.   { the same as 'erase' except you don't have to assign the file first }
  62.  
  63. Function RenFile(OldName, NewName: String): Integer;
  64.   { renames the file via int 21h func 56h }
  65.   { the same as 'rename' except you don't have to assign the file first }
  66.   { 0 - successfully renamed file }
  67.   { 2 - File to rename not found }
  68.   { 3 - Path not found - cannot rename to another drive }
  69.   { for more RTFM TP's online help }
  70.  
  71. { -------------------------------------------------------------------------- }
  72.  
  73.   { interne Änderungsanmerkungen s. FFILES.INC }